<%





function save_data_on_DB()


dim i,cnt,str_sqln,str_sqlv


str_sqln="nome,	cognome, indirizzo,	email,	cap, citta,	provincia,	nazione,	tel,	cell, fax,		lingua,	dataRichiesta,	oraRichiesta"
str_sqlv="'"&request.Form("nome")&"','"&_
request.Form("cognome")&"','"&_
request.Form("indirizzo")&"','"&_
request.Form("email")&"','"&_
request.Form("cap")&"','"&_
request.Form("citta")&"','"&_
request.Form("provincia")&"','"&_
request.Form("nazione")&"','"&_
request.Form("tel")&"','"&_
request.Form("cell")&"','"&_
request.Form("fax")&"','"&_
LINGUA_PAG&"','"&_
date &"','"&_
time&"'"




str_sql="insert into TD_RICHIESTE_ISCRIZIONI ("&str_sqln&") values ("&str_sqlv&")"
	
	set connessione = Server.CreateObject("ADODB.Connection")
	'connessione.open(DB_CONNECTION)
	connessione.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\_webas3\as3.it\www\contatti\_include\contatti.mdb")
	connessione.execute(str_sql)
	connessione.close
	set connessione=nothing
	
end function

%>